home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_83
/
heatseek.bas
(
.txt
)
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
73KB
|
143 lines
1 REM ~~dim~~
10 MODE
100 REM # scherm #
101 CLS
102 PALETTE
103 EXTENSION (Index #3) (Token 0x8a)
11 KEY
110 FOR
120 INK
13 HIDE
130 DRAW
135 NEXT
137 FOR
14 GOSUB
140 VARNAME
145 IF
15 GOSUB
150 FOR
160 VARNAME
170 INK
180 DRAW
190 INK
2 DIM
20 VARNAME
200 PLOT
205 INK
206 PLOT
210 NEXT
215 REM
220 NEXT
230 FOR
235 FOR
240 FOR
245 FOR
25 VARNAME
250 FOR
255 PEN
256 PEN
260 PEN
265 PEN
30 EXTENSION (Index #2) (Token 0x86)
300 SPRITE
305 FLASH
306 FLASH
310 MOVE X
315 MOVE X
320 MOVE
321 VARNAME
329 REM ### game ####
330 IF
340 IF
350 IF
360 IF
361 IF
362 IF
365 IF
370 IF
40 REPEAT
400 WAIT VBL
41 CLS
410 IF
42 PEN
420 IF
43 PRINT
430 IF
44 CENTRE
440 IF
441 IF
442 IF
445 VARNAME
447 INK
45 PRINT
450 VARNAME
46 PEN
460 SPRITE
47 PRINT
48 PRINT
49 PRINT
49000 REM # palette from sprite-bank #
49010 VARNAME
49020 RETURN
499 RETURN
5 EXTENSION (Index #3) (Token 0xa4)
50 PRINT
500 WAIT VBL
50000 DATA
510 IF
520 IF
530 IF
54 PEN
540 IF
541 IF
542 IF
545 VARNAME
547 INK
55 INPUT
550 VARNAME
560 SPRITE
599 RETURN
6 CLICK
60 CURS
600 REM ~~ end ~~~
610 IF
611 IF
620 VARNAME
621 IF
622 IF
630 IF
635 IF
640 IF
641 IF
650 PEN
660 PEN
670 LOCATE
680 CLEAR KEY
690 REPEAT
699 GOTO
7 EXTENSION (Index #3) (Token 0x88)
700 PEN
710 RETURN
750 PEN
760 RETURN
800 REM game over
8000 VARNAME
801 CLICK
8020 RETURN
810 LOGIC
815 EXTENSION (Index #3) (Token 0x82)
820 EXTENSION (Index #0) (Token 0x80)
830 PEN
840 PEN
850 PEN
860 PEN
870 APPEAR
890 REPEAT
895 IF
896 IF
899 GOTO
9000 REM ~ init ~
9010 RESTORE
9020 FOR
9999 RETURN